home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 29 / 029.d81 / jiffy jotter (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  170 lines
  1. 0 gosub60100:goto10
  2. 1 poke781,r%:poke782,c%:poke783,peek(783)and254:sys65520:return
  3. 10 clr:goto230
  4. 30 :
  5. 40 in$="":printy$;
  6. 50 if(peek(162)and16)=16thenprintu$;l$;
  7. 60 if(peek(162)and16)=0thenprint" ";l$;
  8. 70 getz$:ifz$=""then50
  9. 71 ifz$="[147]"orz$=""then50
  10. 80 ifz$=chr$(13)thenreturn
  11. 90 ifz$<>d$then130
  12. 100 iflen(in$)=0then70
  13. 110 in$=left$(in$,len(in$)-1)
  14. 120 print" "l$l$;:goto50
  15. 130 iflen(in$)>239then50
  16. 140 in$=in$+z$:printz$;:pokeqm,0:goto50
  17. 150 :
  18. 160 input#15,e,e$
  19. 170 er=.:ifethenprint"[147]"e;e$:fora=1to2000:next:er=1
  20. 180 return
  21. 190 :
  22. 200 get in$:ifin$=""then200
  23. 210 return
  24. 220 :
  25. 230 printchr$(147)chr$(14)
  26. 240 poke53280,0:poke53281,0:dim a$(15)
  27. 250 sf$="0:subject.file"
  28. 260 open15,8,15:open2,8,2,sf$
  29. 270 input#15,e:ife=62thenx=10:nf=0:goto290
  30. 280 input#2,nf:x=nf+10:ifx<10thenx=10
  31. 290 ife=62then310
  32. 300 forx=1tonf:input#2,a$(x):next
  33. 310 close2
  34. 320 d$=chr$(20):y$=chr$(158)
  35. 330 w$=chr$(5):b$=chr$(154):p$=chr$(156)
  36. 340 u$=chr$(164):l$=chr$(157)
  37. 350 w=40
  38. 360 c=64:iffre(0)<>fre(1)thenc=128
  39. 370 if c=64 then qm=212:sm=828
  40. 380 if c=128 then qm=244:nk=88:sm=2816
  41. 390 if c=128 and peek(215)=128thenw=80
  42. 400 gosub980:rem poke in ml
  43. 410 print"[147][158]              [202][201][198][198][217] [202][207][212][212][197][210]
  44. 420 [153]"              tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  45. 430 print"         [159][193]  -  [154][193]dd note to a file
  46. 440 [153]"         open(NULL)  -  cont(NULL)ead a file
  47. 450 print"         [159][195]  -  [154][195]reate new file
  48. 460 [153]"         openstr$  -  contstr$elete file
  49. 470 print"         [159][209]  -  [154][209][213][201][212]
  50. 490 [153]"open(NULL)umber of files on disk:"nf
  51. 510 [153]"lenhoose [printatn, print(NULL), printlen, printstr$ or print(NULL)]:
  52. 515 gosub200
  53. 520 if in$="c"orin$="[195]"then720
  54. 530 if in$="d"orin$="[196]"then860
  55. 540 if in$="q"orin$="[209]"then750
  56. 545 ifin$="a"orin$="[193]"orin$="[210]"orin$="r"then550
  57. 546 goto515
  58. 550 print"[147][155][198]iles on disk --"
  59. 552 ifnf=.thenprint"[206]o files on disk.":fora=1to2000:next:goto410
  60. 555 fora=1tonf:print""a"[153]"a$(a):next
  61. 559 cd$=in$
  62. 560 a$="[193]dd to":ifin$="r"thena$="[210]ead"
  63. 570 print:printa$;" which subject?
  64. 580 [141]200
  65. 590 a[178][197](in$):[139]a[179]1[176]a[177]nf[167]410
  66. 600 f$[178]"0:"[170]a$(a)
  67. 610 [139] [195](f$)[177]20[167]f$[178][200](f$,20)
  68. 620 [139] cd$[178]"r"[167]1050
  69. 630 mx[178]6:[139]w[178]80[167]mx[178]3
  70. 640 [153]"loadvalnter text:  ("mx"lines max )
  71. 650 print:printy$:gosub40
  72. 660 gosub690:print#2,in$:gosub160
  73. 665 iferthen410
  74. 670 print#2:close2
  75. 680 goto410
  76. 690 :
  77. 700 close2:open 2,8,2,f$+",a,s,w"
  78. 710 return
  79. 720 ifnf=20thenprint"[147]20 [198]iles [205]aximum ...":fora=1to1000:next:goto410
  80. 728 print"[147][206]ew category name: ";:gosub40
  81. 730 a$(nf+1)=in$:nf=nf+1
  82. 740 print"[147]":gosub810:goto1150
  83. 750 :
  84. 760 print:print"[150][193]re you sure?
  85. 770 [141]200
  86. 780 [139]in$[178]"n"[176]in$[178]"(NULL)"[167]410
  87. 785 [139]in$[179][177]"y"[175]in$[179][177]"(NULL)"[167]770
  88. 790 [160]15:[153]"load";:[159]15,8,15,"r0:hello connect=hello connect":[132]15,er
  89. 792 [160]15:[139]er[179][177]63[167][128]
  90. 794 [147]"hello connect",8
  91. 800 :
  92. 810 f$[178]"0:"[170]in$
  93. 820 [139] [195](f$)[177]20[167]f$[178][200](f$,20)
  94. 830 [160]2:[159]2,8,2,f$[170]",s,w":[160]2
  95. 840 [141]160:[139]er[167]nf[178]nf[171]1:[137]410
  96. 850 [142]
  97. 860 :
  98. 870 [153]"loadclrstr$elete":[153]
  99. 880 [129]x[178]1[164]nf:[153]w$x[163]7)b$a$(x):[130]
  100. 890 [153]:[153]
  101. 900 [133]"sysstr$elete ascile #   ";in$
  102. 910 a[178][197](in$):[139]a[179]1[176]a[177]nf[167]410
  103. 920 [153]:[153]:[153]"str$elete "a$(a)".
  104. 930 print:print"[154][193]re you [211][213][210][197]?":gosub200
  105. 940 ifin$<>"y"then410
  106. 950 print:print"[150][196]eleting...
  107. 960 [152]15,"s0:"[170]a$(a)[170]"*"
  108. 970 a$(a)[178]"":nf[178]nf[171]1:[137]1150
  109. 980 :
  110. 990 [129]j[178]sm[164]sm[170]65:[135]a:[151]j,a:[130]:[142]
  111. 1000 [131] 173,214,240,201,82,240,27,162,2,32,198,255,32,228,255,32
  112. 1010 [131] 210,255,169,0,133,244,165,211,201,0,208,250,166,144,208,30
  113. 1020 [131] 240,234,162,2,32,198,255,32,228,255,32,210,255,169,0,133
  114. 1030 [131] 212,173,141,2,201,0,208,249,166,144,208,2,240,233,32,204
  115. 1040 [131] 255,96
  116. 1050 :
  117. 1060 [160]2:[159]2,8,2,f$:[141]150
  118. 1070 [153]"load(NULL)ress (NULL)left$right$asc(NULL) (NULL)val(NULL) to pause.
  119. 1080 print:print"[208]ress any key to begin.
  120. 1090 [141]200
  121. 1100 [153]:[153]y$
  122. 1110 [158] sm : [160]2
  123. 1120 [153]:[153]w$"(NULL)ress any key.
  124. 1130 gosub200:goto410
  125. 1140 :
  126. 1150 print:print"[158][213]pdating subject file...
  127. 1160 [152]15,"s"[170]sf$
  128. 1170 [159]2,8,2,sf$[170]",s,w":[152]2,nf
  129. 1180 [129]x[178]1[164]nf[170]1
  130. 1190 [139]a$(x)[179][177]""[167][152]2,a$(x)
  131. 1200 [130]:[160]2:[137]10
  132. 60100 pn$[178]"mid$right$ascasc(NULL) mid$(NULL)(NULL)(NULL)val(NULL)":an$[178]"peek(NULL):  peek(NULL)(NULL)lenval mid$atnvalchr$val(NULL)
  133. 60110 bo=14:sc=1:cl=06:c1=05:c2=14:c3=05:c4=14:c5=2:c6=09:c7=4
  134. 60130 poke53280,bo:poke53281,sc:print"[147]";:goto60250
  135. 60140 poke646,c1:print" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]
  136. 60150 [151]646,c2:[153]" fn        (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) (NULL)(NULL)val(NULL)val(NULL)(NULL)(NULL):        then
  137. 60170 poke646,c1:print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]
  138. 60180 [151]646,c6:[153]""[163]20[171][195](pn$)[173]2);pn$
  139. 60190 [151]646,c7:[153]""[163]20[171][195](an$)[173]2);an$
  140. 60200 [151]646,c5:[153]""[163]13)"len(NULL)(NULL)(NULL)(NULL)right$chr$left$(NULL) 1986
  141. 60210 printtab(9)"[195][207][205][205][207][196][207][210][197] [208][213][194][204][201][195][193][212][201][207][206][211]
  142. 60220 [151]646,c3:[153]" totototototototototototototototototototototototototototototototototototo
  143. 60230 poke646,c4:print" [165]                                  [167]
  144. 60240 [151]646,c3:[153]" tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(wait";
  145. 60245 [151]198,.:[137]60360
  146. 60250 [151]646,cl
  147. 60255 [153]" *newnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewrnd
  148. 60260 fora=1to3:gosub60470:next
  149. 60270 gosub60470:print"[145][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]
  150. 60280 [129]a[178]1[164]16:[141]60470:[130]
  151. 60290 [153]"onandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandand
  152. 60300 fora=1to3:gosub60470:next
  153. 60310 print" [188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]";
  154. 60320 poke53280,bo:poke53281,sc:goto60140
  155. 60360 r%=22:c%=2:gosub1
  156. 60370 poke646,c2:print"[165][208]ress the [[211][208][193][195][197] [194][193][210]] to continue.[167]
  157. 60372 l1[178]07:l2[178]11:i1[178][171]1:i2[178]1
  158. 60375 r%[178]l1:c%[178]14:[141]1:[153]"            "
  159. 60376 r%[178]l2:c%[178]11:[141]1:[153]"                 "
  160. 60378 l1[178]l1[170]i1:l2[178]l2[170]i2
  161. 60390 [139]l1[170]2[177][178]l2[167]i1[178][171]i1:i2[178][171]i2
  162. 60400 [139]l1[178]5[167]i1[178][171]i1
  163. 60410 [139]l2[178]14[167]i2[178][171]i2
  164. 60420 r%[178]l1:c%[178]14:[141]1:[151]646,c6:[153]pn$
  165. 60430 r%[178]l2:c%[178]11:[141]1:[151]646,c7:[153]an$
  166. 60440 [141]60500:[137]60375
  167. 60470 [153]" getwaitget":[142]
  168. 60500 [161]a$:[139]a$[179][177]" "[167][142]
  169. 60501 [137]10
  170.